#include <iostream>
#include <vector>
#include <string>

int main() {
    std::string word;
    std::cin >> word;

    int lz = 0;
    std::string lx;
    int v = 0;
    int word_trie = 0;
    int xindex = 0;
    int word_tre = 0;
    int index = 0;
    int glavnaya_rus = 0;
    int simvol_eng = 0;
    std::vector<std::string> word_ist;

    std::string temp_word = "";
    for (char c : word) {
        if (c == ' ') {
            word_ist.push_back(temp_word);
            temp_word = "";
        } else {
            temp_word += c;
        }
    }
    word_ist.push_back(temp_word);

    std::cout << "Кол-во слов:" << word_ist.size() << std::endl;

    while (index != word.size()) {
        if (word[index] >= 'A' && word[index] <= 'Z') {
            simvol_eng += 1;
        }
        if (word[index] >= 'А' && word[index] <= 'Я') {
            glavnaya_rus += 1;
        }
        index += 1;
    }

    while (xindex != word_ist.size()) {
        if (word_ist[xindex].find('-') != std::string::npos) {
            word_trie += 1;
        }
        if (word_ist[xindex].size() <= 3) {
            word_tre += 1;
        }
        xindex += 1;
    }

    while (v != word_ist.size()) {
        if (lx.empty() || lx.size() < word_ist[v].size()) {
            lx = word_ist[v];
            lz = word_ist[v].size();
        }
        v += 1;
    }

    std::cout << "Кол-во слов с заглавной кириллической буквы:" << glavnaya_rus << std::endl;
    std::cout << "Кол-во слов содержащих латинский символ:" << simvol_eng << std::endl;
    std::cout << "Кол-во слов не превышающих 3 символа:" << word_tre << std::endl;
    std::cout << "Кол-во слов в составе которых имеется дефис:" << word_trie << std::endl;
    std::cout << "Самое длинное слово:" << lx << std::endl;
    std::cout << "Длина слова:" << lz << std::endl;

    return 0;
}